home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / teil 2.listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  481b  |  20 lines
  1. 10 .ba 49152
  2. 20 .gl irqvec     = $0314   ;irqvektor
  3. 30 .gl ciacontrol = $dc0d   ;cia-kontrollregister
  4. 100 init sei;irq verhindern
  5. 110  lda#<(irqneu);irq-vektor auf neue
  6. 120  ldx#>(irqneu);irq-routine stellen
  7. 130  stairqvec
  8. 140  stxirqvec+1
  9. 150  cli;irq wieder zulassen
  10. 160  rts;und zurueck...
  11. 190 ;
  12. 200 irqneu inc1024;1024 inkrementieren
  13. 210  ldaciacontrol;irq-flag loeschen
  14. 220  pla;register zurueckholen
  15. 230  tay
  16. 240  pla
  17. 250  tax
  18. 260  pla
  19. 270  rti;und mit rti zurueck...
  20.